home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 1 / LIGHT-ROM 1 (Amiga Library Services)(1994).iso / ffdisks / d880.lha / Oberon / O3Demo2.lzh / Definitions / Strings.def < prev    next >
Text File  |  1993-01-15  |  838b  |  19 lines
  1. DEFINITION Strings;
  2.  
  3. PROCEDURE Length(str: ARRAY OF CHAR): LONGINT;
  4. PROCEDURE Append(VAR s1: ARRAY OF CHAR; s2: ARRAY OF CHAR);
  5. PROCEDURE Occurs(VAR s: ARRAY OF CHAR; search: ARRAY OF CHAR): LONGINT;
  6. PROCEDURE OccursPos(VAR s: ARRAY OF CHAR; search: ARRAY OF CHAR; start: LONGINT): LONGINT;
  7. PROCEDURE Cut(VAR s: ARRAY OF CHAR; from, cnt: LONGINT; VAR to: ARRAY OF CHAR);
  8. PROCEDURE Upper(VAR s: ARRAY OF CHAR);
  9. PROCEDURE CapIntl(c: CHAR): CHAR;
  10. PROCEDURE UpperIntl(VAR s: ARRAY OF CHAR);
  11. PROCEDURE Insert(VAR s: ARRAY OF CHAR; at: LONGINT; str: ARRAY OF CHAR);
  12. PROCEDURE Delete(VAR s: ARRAY OF CHAR; at, cnt: LONGINT);
  13. PROCEDURE AppendChar(VAR s: ARRAY OF CHAR; c: CHAR);
  14. PROCEDURE InsertChar(VAR s: ARRAY OF CHAR; at: LONGINT; c: CHAR);
  15. PROCEDURE OverWrite(VAR string: ARRAY OF CHAR; overlay: ARRAY OF CHAR; pos: LONGINT);
  16.  
  17. END Strings.
  18.  
  19.